home *** CD-ROM | disk | FTP | other *** search
/ Canon Creative 3 / Canon Creative 3.iso / webrec / files.z / simple.op < prev    next >
Encoding:
Text File  |  1997-01-24  |  7.2 KB  |  315 lines
  1. #WP0 5 5 7 7.5 15 8
  2. /*
  3.  * The line above is read by the page layout code to
  4.  * determine the basic column layout. The items are, in order:
  5.  * - WebPrint version code.
  6.  * - Left hand margin to start of web page data.
  7.  * - Gap to leave between columns.
  8.  * - Right hand margin.
  9.  * - Top of column margin to the start of the web page data.
  10.  * - Vertical gap to leave between columns.
  11.  * - Bottom of column margin.
  12.  * All distances are in mm and may be floating point. Margin measurements
  13.  * are made from the edge of the printable area as declared by the printer
  14.  * driver. Of course it may lie. The functions given in this file add
  15.  * decoration to the column fragments and the page as a whole within
  16.  * the margins and gap areas. That is, they do not generally overwrite
  17.  * the web page data itself, although they may.
  18.  */
  19.  
  20. /*
  21.  * And here are the same numbers so they can be used within the
  22.  * script. (top, bottom, left, right margin, vertial, horixontal gap).
  23.  */
  24. static lm = 5;
  25. static hg = 5;
  26. static rm = 7;
  27. static tm = 7.5;
  28. static vg = 15;
  29. static bm = 8;
  30.  
  31. /*
  32.  * WP_decorate_page
  33.  *
  34.  * Add decoration to the given gob. The gob is the whole page as set
  35.  * out so far.
  36.  */
  37. static
  38. WP_decorate_page(pg, xmin, ymin, xmax, ymax, pg_num, no_background)
  39. {
  40.     auto    fw = 5.0;   /* The width the of fade round the edge. */
  41.     auto    fh = 4.0;   /* The font size. */
  42.     auto    sw = 0.25;  /* Frame stroke width in mm. */
  43.     auto    info;
  44.     auto    bg;
  45.     auto    icon;
  46.     auto    pg_str;
  47.     auto    pg_width;
  48.  
  49.     gc_save();
  50.  
  51.     gc_default();
  52.     
  53.     /*
  54.      * Stroke its edge.
  55.     gc_save();
  56.     rect(xmin + sw, ymin + sw, xmax - xmin - 3*sw, ymax - ymin - 3*sw);
  57.     gc_draw_style("stroked");
  58.     gc_stroke_width(sw);
  59.     gc_color(0.0, 0.0, 0.0);
  60.     gc_opacity(1);
  61.     bg = draw(path());
  62.     gc_restore();
  63.  
  64.     pg = pg over bg;
  65.      */
  66.     
  67.     /*
  68.      * Place the page number icon with the page number in it over everything
  69.      * in the bottom right corner.
  70.      */
  71.     pg_str = " " + string(pg_num) + " ";
  72.     move(0, 0);
  73.     gc_font(SansSerifBold, fh);
  74.     pg_width = WP_text_width(pg_str);
  75.     path();
  76.     gc_opacity(1);
  77.     gc_color(0.0, 0.0, 0.0);
  78.     rect(xmax - pg_width, ymin, pg_width, 5.0);
  79.     pg := path();
  80.     gc_color(1.0, 1.0, 1.0);
  81.     move(xmax, ymin + 1.0);
  82.     pg := text("\t" + pg_str, NULL, "0R");
  83.  
  84.     gc_opacity(1);
  85.     gc_color(1.0, 1.0, 1.0);
  86.     pg = pg over page_fill();
  87.  
  88.     gc_restore();
  89.  
  90.     return pg;
  91. }
  92.  
  93. static
  94. WP_decorate_column(pg, xmin, ymin, xmax, ymax, title, url)
  95. {
  96.     auto    sz = 4.0;   /* Shadow size in mm. */
  97.     auto    sw = 0.25;  /* Frame stroke width in mm. */
  98.     auto    hh = 4.0;   /* The height of the header block. */
  99.     auto    fh = 3.0;   /* The font size. */
  100.     auto    bw = 1;     /* Width of the bevel along the edge. */
  101.     auto    t;
  102.  
  103.     gc_save();
  104.  
  105.     gc_default();
  106.  
  107.     pg = WP_bevel(pg, xmin, ymin, xmax, ymax, 1, 0);
  108.  
  109.     /*
  110.      * Place a label box on top with the title in white.
  111.      * Then modify our ymax to reflect the taller box.
  112.      */
  113.     gc_opacity(1);
  114.     gc_color(0.0, 0.0, 0.0);
  115.     move(xmin + 1.0, ymax + hh * 0.25);
  116.     gc_font(SansSerifBoldItalic, fh);
  117.     pg := WP_text(xmax - xmin - 2, title);
  118.     rect(xmin, ymax, xmax - xmin, hh);
  119.     gc_draw_style("stroked");
  120.     gc_stroke_width(sw);
  121.     pg := path();
  122.     ymax += hh;
  123.  
  124.     /*
  125.      * Place a label box at the bottom with the url in it.
  126.      * Then modify our ymin to reflect the taller box.
  127.      */
  128.     hh *= 0.666;
  129.     fh *= 0.666;
  130.     gc_opacity(1);
  131.     gc_color(0.0, 0.0, 0.0);
  132.     move(xmin + 1.0, ymin - hh * 0.75);
  133.     gc_font(SansSerifBold, fh);
  134.     pg := WP_text(xmax - xmin - 2, url);
  135.     rect(xmin, ymin - hh, xmax - xmin, hh);
  136.     pg := path();
  137.     ymin -= hh;
  138.  
  139.     /*
  140.      * Put a black frame just outside the updated area.
  141.      */
  142.     rect(xmin, ymin, xmax - xmin, ymax - ymin);
  143.     pg := path();
  144.  
  145.     gc_restore();
  146.  
  147.     return pg;
  148. }
  149.  
  150. static
  151. WP_bevel(pg, xmin, ymin, xmax, ymax, bw, sunken)
  152. {
  153.     auto    sw = 0.25;  /* Frame stroke width in mm. */
  154.  
  155.     gc_save();
  156.     gc_color(0, 0, 0);
  157.     gc_draw_style("stroked");
  158.     gc_stroke_width(sw);
  159.     rect(xmin, ymin, xmax - xmin, ymax - ymin);
  160.     pg = path() over pg;
  161.     gc_restore();
  162.     return pg;
  163. }
  164.  
  165. static
  166. WP_text_width()
  167. {
  168.     /*
  169.      * Parameters not assigned to formal parameters are formed
  170.      * into an array and assigned to the auto variable vargs...
  171.      */
  172.     auto        vargs;
  173.     auto        x, y;
  174.     auto        nx, ny;
  175.  
  176.     current_point(&x, &y);
  177.     call(text, vargs);
  178.     current_point(&nx, &ny);
  179.     move(x, y);
  180.     return nx - x;
  181. }
  182.  
  183. static
  184. WP_trim_text(avail_width)
  185. {
  186.     /*
  187.      * Parameters not assigned to formal parameters are formed
  188.      * into an array and assigned to the auto variable vargs...
  189.      */
  190.     auto        vargs;
  191.     auto        full_text;
  192.     auto        trimed_text;
  193.     auto        ellipses = "\342\200\246"; /* ... in UTF8 Unicode. */
  194.     auto        nchars;
  195.  
  196.     full_text = vargs[0];
  197.     if (call(WP_text_width, vargs) < avail_width)
  198.         return full_text;
  199.     avail_width -= WP_text_width(ellipses);
  200.     nchars = nels(full_text);
  201.     while
  202.     (
  203.         nels(trimed_text = interval(full_text, 0, nchars)) != 0
  204.         &&
  205.         (
  206.             vargs[0] = trimed_text,
  207.             call(WP_text_width, vargs) > avail_width
  208.         )
  209.     )
  210.     {
  211.         --nchars;
  212.         /*
  213.          * The text we're trimming is UTF-8 encoded.  If it's a multi-byte
  214.          * character, move back past the start of the character.
  215.          */
  216.         if (full_text[nchars - 1] >= "\200")
  217.         {
  218.             while (full_text[nchars - 1] < "\300")
  219.                 --nchars;
  220.             --nchars;
  221.         }
  222.     }
  223.     return trimed_text + ellipses;
  224. }
  225.  
  226. /*
  227.  * WP_text
  228.  *
  229.  * Set text within a limited horizontal width. Condenses the text up to 50%
  230.  * if it is too long, then clips it. Returns a gob (not a text object). Leaves
  231.  * current point end of text.
  232.  *
  233.  * Parameters:
  234.  *  avail_width            The width within which the text must fit, in user space.
  235.  *  ...                    Further parameters as required for the text() function.
  236.  */
  237. static
  238. WP_text()
  239. {
  240.     /*
  241.      * Parameters not assigned to any formal parameters are formed
  242.      * into an array and assigned to the auto variable vargs...
  243.      */
  244.     auto    vargs;
  245.     auto    actual_width;
  246.     auto    x, y;
  247.     auto    xx, yy;
  248.     auto    condense;
  249.     auto    t;
  250.     auto    e;
  251.  
  252.     vargs[1] = call(WP_trim_text, vargs);
  253.     return draw(call(text, interval(vargs, 1)));
  254.  
  255.     gc_save();
  256.     current_point(&x, &y);
  257.     call(text, vargs);
  258.     current_point(&actual_width, &y);
  259.     actual_width -= x;
  260.     move(x, y);
  261.     if (actual_width > avail_width)
  262.     {
  263.         /*
  264.         condense = avail_width / actual_width;
  265.         if (condense < .5)
  266.             condense = .5;
  267.         gc_font_scale(condense, 1.0);
  268.         */
  269.  
  270.         actual_width = avail_width;
  271.         move(x + avail_width, y);
  272.         e = draw(text("\t\342\200\246", NULL, "0R")); /* Ellipses */
  273.         move(0, 0);
  274.         text("\342\200\246");  /* Ellipses */
  275.         current_point(&xx, &yy);
  276.         avail_width -= xx;
  277.  
  278.         move(x, y);
  279.         t = draw(call(text, vargs));
  280.         rect(x - 1, y - 10000, avail_width + 1, 20000);
  281.         gc_default();
  282.         t = e over (t in draw(path()));
  283.     }
  284.     else
  285.     {
  286.         t = draw(call(text, vargs));
  287.     }
  288.     gc_restore();
  289.     move(x + actual_width, y);
  290.     return t;
  291. }
  292.  
  293. static
  294. T(x, y, str)
  295. {
  296.     auto    vargs;
  297.     auto    t;
  298.     auto    i;
  299.  
  300.     y /= 10.0;
  301.     move(x / 10.0, y);
  302.     t = text(str, NULL, NULL, 1);
  303.     if (vargs != NULL)
  304.     {
  305.         for (i = 0; i < nels(vargs); ++i)
  306.         {
  307.             move(vargs[i] / 10.0, y);
  308.             ++i;
  309.             t += text(vargs[i], NULL, NULL, 1);
  310.         }
  311.     }
  312.     return draw(t);
  313. }
  314.  
  315.